home *** CD-ROM | disk | FTP | other *** search
-- card: 3049 from stack: in.1 -- bmap block id: 0 -- flags: 4000 -- background id: 2621 -- name: ApptSchedule -- part 5 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=140 top=151 right=170 bottom=436 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: firstQtrHour ----- HyperTalk script ----- on mouseUp get word 1 of card field id 5 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp -- part 9 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=140 top=170 right=189 bottom=436 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: secondQtrHour ----- HyperTalk script ----- on mouseUp get word 1 of card field id 9 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp -- part 10 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=140 top=189 right=208 bottom=437 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: thirdQtrHour ----- HyperTalk script ----- on mouseUp get word 1 of card field id 10 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp -- part 11 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=141 top=208 right=227 bottom=437 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: fourthQtrHour ----- HyperTalk script ----- on mouseUp get word 1 of card field id 11 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp -- part 12 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=151 top=46 right=152 bottom=424 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: infoField ----- HyperTalk script ----- on mouseUp hide card field id 12 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 put "Smile it creates Happiness." into message wait 2 seconds hide message box hide menubar end mouseUp -- part 23 (field) -- low flags: 80 -- high flags: 0007 -- rect: left=46 top=139 right=236 bottom=500 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: ----- HyperTalk script ----- stack "AppointmentMaster v1.1 " on closeStack global whosThere put "Have Yourself a SUPER GOOD DAY" && whosThere && "!" into message box doMenu "Compact Stack" RemShow Meo show menubar hide message box visual effect zoom out end closeStack on update theDate global whosThere ask "What is your name, Please?" with field id 26 put it into field id 26 put it into whosThere put the long date into field id 5 of card id 3049 theSchedule schedule end update on theSchedule schedule set cursor to 4 put empty into field id 6 put empty into field id 7 put empty into field id 8 put empty into field id 9 put empty into field id 10 put empty into field id 11 put empty into field id 12 put empty into field id 13 put empty into field id 14 put empty into field id 15 put empty into field id 16 put empty into field id 17 put empty into field id 30 --field "Links" is a hidden field get field id 5 convert it to seconds put it into thisDay put 1 into lineNumber repeat with x = 2 to (the number of cards) get (field id 2 of card x) --field "Date" if it is empty then next repeat convert it to seconds if it = thisDay then put (the id of card x) into line lineNumber of field "Links" add 1 to lineNumber get field id 47 of card x --field "My Name" if it = field id 26 of card id 3049 then get field id 43 of card x --field "Appointment Time" put it into apptTime get field id 1 of card x --field "ClientName" put it into temp2 put the number of chars of temp2 into countChar put 37 into maxChar subtract countChar from maxChar get field id 6 of card x --field "ApptDetails" put it into temp3 put "," after char maxChar of temp3 put empty into item 2 of temp3 put empty into last char of temp3 get apptTime --a variable holding the appointment time. if it ≥ 0900 and it ≤ 0914 or it ≥ 900 and it ≤ 914 or it = 9 then put temp2 && "—" & temp3 into line 1 of field id 6 else if it ≥ 0915 and it ≤ 0929 or it ≥ 915 and it ≤ 929 then put temp2 && "—" & temp3 into line 2 of field id 6 else if it ≥ 0930 and it ≤ 0944 or it ≥ 930 and it ≤ 944 then put temp2 && "—" & temp3 into line 3 of field id 6 else if it ≥ 0945 and it ≤ 0959 or it ≥ 945 and it ≤ 959 then put temp2 && "—" & temp3 into line 4 of field id 6 else if it ≥ 1000 and it ≤ 1014 or it = 10 then put temp2 && "—" & temp3 into line 1 of field id 7 else if it ≥ 1015 and it ≤ 1029 then put temp2 && "—" & temp3 into line 2 of field id 7 else if it ≥ 1030 and it ≤ 1044 then put temp2 && "—" & temp3 into line 3 of field id 7 else if it ≥ 1045 and it ≤ 1059 then put temp2 && "—" & temp3 into line 4 of field id 7 else if it ≥ 1100 and it ≤ 1114 or it = 11 then put temp2 && "—" & temp3 into line 1 of field id 8 else if it ≥ 1115 and it ≤ 1129 then put temp2 && "—" & temp3 into line 2 of field id 8 else if it ≥ 1130 and it ≤ 1144 then put temp2 && "—" & temp3 into line 3 of field id 8 else if it ≥ 1145 and it ≤ 1159 then put temp2 && "—" & temp3 into line 4 of field id 8 else if it ≥ 1200 and it ≤ 1214 or it = 12 then put temp2 && "—" & temp3 into line 1 of field id 9 else if it ≥ 1215 and it ≤ 1229 then put temp2 && "—" & temp3 into line 2 of field id 9 else if it ≥ 1230 and it ≤ 1244 then put temp2 && "—" & temp3 into line 3 of field id 9 else if it ≥ 1245 and it ≤ 1259 then put temp2 && "—" & temp3 into line 4 of field id 9 else if it ≥ 100 and it ≤ 114 or it ≥ 1300 and it ≤ 1314 or it = 1 then put temp2 && "—" & temp3 into line 1 of field id 10 else if it ≥ 115 and it ≤ 129 or it ≥ 1315 and it ≤ 1329 then put temp2 && "—" & temp3 into line 2 of field id 10 else if it ≥ 130 and it ≤ 144 or it ≥ 1330 and it ≤ 1344 then put temp2 && "—" & temp3 into line 3 of field id 10 else if it ≥ 145 and it ≤ 159 or it ≥ 1345 and it ≤ 1359 then put temp2 && "—" & temp3 into line 4 of field id 10 else if it ≥ 200 and it ≤ 214 or it ≥ 1400 and it ≤ 1414 or it = 2 then put temp2 && "—" & temp3 into line 1 of field id 11 else if it ≥ 215 and it ≤ 229 or it ≥ 1415 and it ≤ 1429 then put temp2 && "—" & temp3 into line 2 of field id 11 else if it ≥ 230 and it ≤ 244 or it ≥ 1430 and it ≤ 1444 then put temp2 && "—" & temp3 into line 3 of field id 11 else if it ≥ 245 and it ≤ 259 or it ≥ 1445 and it ≤ 1459 then put temp2 && "—" & temp3 into line 4 of field id 11 else if it ≥ 300 and it ≤ 314 or it ≥ 1500 and it ≤ 1514 or it = 3 then put temp2 && "—" & temp3 into line 1 of field id 12 else if it ≥ 315 and it ≤ 329 or it ≥ 1515 and it ≤ 1529 then put temp2 && "—" & temp3 into line 2 of field id 12 else if it ≥ 330 and it ≤ 344 or it ≥ 1530 and it ≤ 1544 then put temp2 && "—" & temp3 into line 3 of field id 12 else if it ≥ 345 and it ≤ 359 or it ≥ 1545 and it ≤ 1559 then put temp2 && "—" & temp3 into line 4 of field id 12 else if it ≥ 400 and it ≤ 414 or it ≥ 1600 and it ≤ 1614 or it = 4 then put temp2 && "—" & temp3 into line 1 of field id 13 else if it ≥ 415 and it ≤ 429 or it ≥ 1615 and it ≤ 1629 then put temp2 && "—" & temp3 into line 2 of field id 13 else if it ≥ 430 and it ≤ 444 or it ≥ 1630 and it ≤ 1644 then put temp2 && "—" & temp3 into line 2 of field id 13 else if it ≥ 445 and it ≤ 459 or it ≥ 1645 and it ≤ 1659 then put temp2 && "—" & temp3 into line 4 of field id 13 else if it ≥ 500 and it ≤ 514 or it ≥ 1700 and it ≤ 1714 or it = 5 then put temp2 && "—" & temp3 into line 1 of field id 14 else if it ≥ 515 and it ≤ 529 or it ≥ 1715 and it ≤ 1729 then put temp2 && "—" & temp3 into line 2 of field id 14 else if it ≥ 530 and it ≤ 544 or it ≥ 1730 and it ≤ 1744 then put temp2 && "—" & temp3 into line 3 of field id 14 else if it ≥ 545 and it ≤ 559 or it ≥ 1745 and it ≤ 1759 then put temp2 && "—" & temp3 into line 4 of field id 14 else if it ≥ 600 and it ≤ 614 or it ≥ 1800 and it ≤ 1814 or it = 6 then put temp2 && "—" & temp3 into line 1 of field id 15 else if it ≥ 615 and it ≤ 629 or it ≥ 1815 and it ≤ 1829 then put temp2 && "—" & temp3 into line 2 of field id 15 else if it ≥ 630 and it ≤ 644 or it ≥ 1830 and it ≤ 1844 then put temp2 && "—" & temp3 into line 3 of field id 15 else if it ≥ 645 and it ≤ 659 or it ≥ 1845 and it ≤ 1859 then put temp2 && "—" & temp3 into line 4 of field id 15 else if it ≥ 700 and it ≤ 714 or it ≥ 1900 and it ≤ 1914 or it = 7 then put temp2 && "—" & temp3 into line 1 of field id 16 else if it ≥ 715 and it ≤ 729 or it ≥ 1915 and it ≤ 1929 then put temp2 && "—" & temp3 into line 2 of field id 16 else if it ≥ 730 and it ≤ 744 or it ≥ 1930 and it ≤ 1944 then put temp2 && "—" & temp3 into line 3 of field id 16 else if it ≥ 745 and it ≤ 759 or it ≥ 1945 and it ≤ 1959 then put temp2 &&"—" & temp3 into line 4 of field id 16 else if it ≥ 800 and it ≤ 814 or it ≥ 2000 and it ≤ 2014 or it = 8 then put temp2 && "—" & temp3 into line 1 of field id 17 else if it ≥ 815 and it ≤ 829 or it ≥ 2015 and it ≤ 2029 then put temp2 && "—" & temp3 into line 2 of field id 17 else if it ≥ 830 and it ≤ 844 or it ≥ 2030 and it ≤ 2044 then put temp2 && "—" & temp3 into line 3 of field id 17 else if it ≥ 845 and it ≤ 859 or it ≥ 2045 and it ≤ 2059 then put temp2 && "—" & temp3 into line 4 of field id 17 end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end repeat end theSchedule on RemShow Meo get the date convert it to dateItems if item 3 of it = 1 or item 3 of it =15 then beep 2 put "Paid your SHAREWARE FEE yet ? If So—THANKS! If No — PLEASE DO" wait 5 seconds play boing hide message box end if end RemShow on openStack visual zoom in hide menubar hide message box show field id 25 --Copyright field-DO NOT REMOVE put the long date into field id 2 of card id 2289 update theDate RemShow Meo end openStack bkgnd "Schedule" on closeStack global whosThere put field id 26 into whosThere pass closeStack end closeStack card "ApptSchedule" --no script bkgnd field "Date" bkgnd field "Nine" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 6 into card field id 5 put line 2 of field id 6 into card field id 9 put line 3 of field id 6 into card field id 10 put line 4 of field id 6 into card field id 11 end mouseUp bkgnd field "ten" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 7 into card field id 5 put line 2 of field id 7 into card field id 9 put line 3 of field id 7 into card field id 10 put line 4 of field id 7 into card field id 11 end mouseUp bkgnd field "eleven" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 8 into card field id 5 put line 2 of field id 8 into card field id 9 put line 3 of field id 8 into card field id 10 put line 4 of field id 8 into card field id 11 end mouseUp bkgnd field "twelve" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 9 into card field id 5 put line 2 of field id 9 into card field id 9 put line 3 of field id 9 into card field id 10 put line 4 of field id 9 into card field id 11 end mouseUp bkgnd field "one" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 10 into card field id 5 put line 2 of field id 10 into card field id 9 put line 3 of field id 10 into card field id 10 put line 4 of field id 10 into card field id 11 end mouseUp bkgnd field "two" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 11 into card field id 5 put line 2 of field id 11 into card field id 9 put line 3 of field id 11 into card field id 10 put line 4 of field id 11 into card field id 11 end mouseUp bkgnd field "three" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 12 into card field id 5 put line 2 of field id 12 into card field id 9 put line 3 of field id 12 into card field id 10 put line 4 of field id 12 into card field id 11 end mouseUp bkgnd field "four" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 13 into card field id 5 put line 2 of field id 13 into card field id 9 put line 3 of field id 13 into card field id 10 put line 4 of field id 13 into card field id 11 end mouseUp bkgnd field "five" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 14 into card field id 5 put line 2 of field id 14 into card field id 9 put line 3 of field id 14 into card field id 10 put line 4 of field id 14 into card field id 11 end mouseUp bkgnd field "six" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 15 into card field id 5 put line 2 of field id 15 into card field id 9 put line 3 of field id 15 into card field id 10 put line 4 of field id 15 into card field id 11 end mouseUp bkgnd field "seven" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 16 into card field id 5 put line 2 of field id 16 into card field id 9 put line 3 of field id 16 into card field id 10 put line 4 of field id 16 into card field id 11 end mouseUp bkgnd field "eight" on mouseUp show card field id 5 show card field id 9 show card field id 10 show card field id 11 show card field id 12 put line 1 of field id 17 into card field id 5 put line 2 of field id 17 into card field id 9 put line 3 of field id 17 into card field id 10 put line 4 of field id 17 into card field id 11 end mouseUp bkgnd field "Your Name" --no script bkgnd field "Links" on mouseUp hide bkgnd field id 30 end mouseUp bkgnd field "©Copyright" on mouseUp hide field id 25 end mouseUp bkgnd button "Yesterday" on mouseUp visual effect wipe left get field id 5 put it into today convert today to seconds put (60*60*24) into oneDay subtract oneDay from today put today into field id 5 convert field id 5 to long date theSchedule schedule end mouseUp bkgnd button "Tomorrow" on mouseUp visual effect wipe right get field id 5 put it into today convert today to seconds put (60*60*24) into oneDay add oneDay to today put today into field id 5 convert field id 5 to long date theSchedule update end mouseUp bkgnd button "Home" on mouseUp show menubar visual effect iris close go Home end mouseUp bkgnd button "New Appointment Card" on mouseUp visual iris open go next background doMenu "new Card" end mouseUp bkgnd button "My Appointment Book" on mouseUp get the date put it into temp ask "Schedule for Which Day?" with temp put it into field id 5 put it into apptDay convert apptDay to seconds convert field id 5 to long date ask "What is your name, Please?" with field id 26 --field "Your Name" put it into field id 26 theSchedule schedule end mouseUp bkgnd button "Printer" on mouseUp answer "What do you wish to print?" with "Cancel" or "Print Card" or "Print All" if it is "Cancel" then exit mouseUp else if it is "Print Card" then doMenu "Print Card" exit mouseUp else if it is "Print All" then doMenu "Print Card" set lockscreen to true push card go line 1 of field id 30 send mouseUp to bkgnd button id 57 --"Closer Look" doMenu "Print Card" send mouseUp to bkgnd button id 54 pop card set lockScreen to false open printing with dialog repeat with x = 1 to the number of lines of field id 30 get line x of field id 30 if it is empty then close printing exit mouseUp else if it is not empty then set lockScreen to true go it hide bkgnd field id 50 hide bkgnd field id 51 hide bkgnd field id 53 hide bkgnd button id 54 hide bkgnd button id 63 show bkgnd button id 57 --"Closer Look" print this card go card id 3049 end if end if end repeat end if end if end if close printing set lockScreen to false end mouseUp card field "firstQtrHour" on mouseUp get word 1 of card field id 5 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp card field "secondQtrHour" on mouseUp get word 1 of card field id 9 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp card field "thirdQtrHour" on mouseUp get word 1 of card field id 10 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp card field "fourthQtrHour" on mouseUp get word 1 of card field id 11 if it is empty then exit mouseUp put it into temp1 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 hide card field id 12 put bkgnd field id 5 into temp2 visual effect zoom in go background id 3622 find temp2 of bkgnd field id 2 find temp1 of bkgnd field id 1 play boing end mouseUp card field "infoField" on mouseUp hide card field id 12 hide card field id 5 hide card field id 9 hide card field id 10 hide card field id 11 put "Smile it creates Happiness." into message wait 2 seconds hide message box hide menubar end mouseUp This is the end of the scripts for card #1 -- part contents for background part 25 ----- text ----- AppointmentMaster ver. 1.1 ©1988 by James Carl Casebier, Jr. 105 Center Street —Box 172 Hartford, Kentucky 42347, USA All rights reserved –––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––– This HyperCard™ Stack is ShareWare Try it out. If you like it and want to use it Please send $15.00 to the author at the above address..... >>>Otherwise please trash the stack and Honor Shareware Fees.<<< ––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––– Documentation & the latest version of AppointmentMaster™ will be sent to you upon reciept of your payment. Registered users will be notified of future updates and other new programs and applications as they develop from U—Compute—it™ HyperCard™ is a trademark of Apple Computer, Inc. AppointmentMaster™ v1.1©1988 is the property of U—Compute—It™ -- part contents for card part 12 ----- text ----- ****Info—Field**** —Click Here to cancel— Click below on the appointment you wish to modify -- part contents for background part 5 ----- text ----- Tuesday, March 1, 1988 -- part contents for background part 26 ----- text ----- Your Name Here -- part contents for card part 23 ----- text ----- To see and print the scripts of the stack and of card #1 —open the script of this field: (1) Select the field tool from the tools menu. If the menubar is not visible type command and the spacebar to make it visible. (2) Hold down the shift key while double clicking on this field. (3) To print click on the print button. There are 12 pages. THIS IS CARD FIELD ID 23 -- part contents for card part 5 ----- text ----- Your —Introduction to AppointmentMaster -- part contents for background part 30 ----- text ----- card id 2289 -- part contents for background part 6 ----- text ----- Your —Introduction to AppointmentMaster 
